PS to GEOS
SEQ formatted GEOS file V1.0
Epson FX-80
{ GRABBER
ICON EDITOR
ICON EDIT 2.1
CONVERT
DESK TOP
PS to GEOS
George Selembo
Converts Print Shop graphics into Photo Scrap.  Photo Scrap must already exist.
22528:
53281,0:
53280,0:
"     
"     
PRINT SHOP TO GEOS CONVERTER
"     
15,"U1:2 0"
#2,A$:TN
(0)):
#2,A$:SN
15,"B-P:2,"
#2,A$:
(131)
#2,A$:TP
(0)):
#2,A$:SP
(0)):H$
#2,A$:
(160)
15,"B-P:2,"
#2,A$:SL
(0)):
#2,A$:SH
  PLACE PRINT SHOP DATA DISK IN DRIVE"
       PRESS 
RETURN
 WHEN READY..."
 970:
53280,0
  ARE THESE GRAPHICS FOR A 
OMMODORE"
           OR 
THER PRINTER?";
TYPE FILE NAME OR PRESS 
RETURN
 FOR LIST":
15,8,15:
8,8,0,N$:
15,EN,EB$,ET,ES
(EB$)
2)EB$:N$
2)"LOADING "
185,0:
780,0:
781,0:
782,88:
65493:
        PLACE GEOS DISK IN DRIVE"
       PRESS 
RETURN
 WHEN READY..."
53280,0:
         SAVING PHOTOSCRAP FILE"
15,8,15,"I0":
15,EN,EB$,ET,ES:
2,8,2,"S,U,W":
15,EN,EB$,ET,ES:
M));:
(191)
(0);:
 80,104,111,116,111,32,83,99,114,97,112
2,8,2,"#":T
1:DI$
NO PHOTO SCRAP FILE":
TP:S2
SP:K1
1:DI$
15,"B-P:2,"
(S2);
15,"B-P:2,"
256):FL
(FH);
15,"U2:2 0"
15,"U1:2 0"
15,"B-P:2,"
(SP);
15,"B-P:2,"
15,"U2:2 0"
15,"S0:S"
DONE"
    PLACE 
 MASTER DISK IN DRIVE"
       HIT 
RESTORE
 TO REBOOT GEOS":
15,8,15,"I0":
2,8,2,"#":X
  THE GRAPHIC FILES ON THIS DISK ARE:"
15,"U1:2 0"
#2,A$:TN
(0)):
#2,A$:SN
15,"B-P:2,"
#2,A$:FT
(0)):
15,"B-P:2,"
#2,A$:FS
(0)):
#2,A$:FS
15,"B-P:2,"
5):D$
#2,A$:
(160)
"   "
(34):N
"        PRESS 
RETURN
 TO SEE MORE"
    TYPE _ AND PRESS 
RETURN
 TO ABORT"
        NONE
      PLACE CURSOR NEXT TO NAME OR"
"   TYPE NAME AND PRESS 
RETURN
 TO LOAD":
    PLACE ANOTHER DATA DISK IN DRIVE"
       PRESS 
RETURN
 WHEN READY..."
53280,0:
53280,2
53280,0:A
(EB$)
           RESETTING DRIVE...
15,"UJ":
1500: